MacFormat España 24/MacFormat n. 24 (Spain)/MacFormat 24.bin/Demos/Jungle Activated!/JungleActivated Demo/jung DEMO d/00142_Video Player.ls

Text File | 1996-10-14 | 500 b | 21 lines

on enterFrame
  if the movieTime of sprite 2 > 0 then
    sound fadeOut 1, 120
    set the volume of sound 1 to 0
    sound fadeOut 2, 120
    set the volume of sound 2 to 0
    sound stop 2
  end if
end

on exitFrame
  global gBackgroundVolume, gWhereFrom, gMovieTime, gMoviePause
  go(the frame)
  if the movieTime of sprite 2 = the stopTime of sprite 2 then
    set the volume of sound 2 to gBackgroundVolume
    set the visible of sprite 29 to 0
    updateStage()
    go(gWhereFrom)
  end if
end